home *** CD-ROM | disk | FTP | other *** search
/ MediaClips: Full Bloom / Aris MediaClips - Full Bloom.iso / mac / Full Bloom™ / Full Bloom™.rsrc / LENS_132_Sound Picker.bin < prev    next >
Text File  |  1993-05-18  |  5KB  |  176 lines
  1. ItemType: WIND
  2. Rect: 103,50,536,371
  3. AutoSize: FALSE
  4. Style: Window
  5. HasTitleBar: TRUE
  6. HasZoomBox: TRUE
  7. HasCloseBox: TRUE
  8. HasGrowBox: TRUE
  9. MinSize: 433,227
  10. MaxSize: 865,597
  11. Name: Sound Picker
  12. WhiteColor: -17477,-17477,-17477
  13.  
  14. ItemType: LIST
  15. Rect: 8,44,425,206
  16. TextFont: Geneva
  17. TextSize: 9
  18. AutoSize: FALSE
  19. Name: Sounds
  20. Style: ListOfIcons
  21. Logic: Single
  22. DoubleClickItem: 21
  23. KeyScroll: TRUE
  24. Text: 
  25. Balloon: Select a sound to play by clicking the mouse or use the arrow keys on your keyboard.┬┬The name and duration of the selected sound file will be displayed at the bottom of the window.┬┬Double-Clicking will play the sound.┬Click anywhere to stop.
  26. Script: get i1_Selection of window wdName┬if it > 0 and it ▓ numberOfSnds then┬  if i21_DefaultItem of window wdName = FALSE then┬    set i21_DefaultItem of window wdName to TRUE┬  end if┬  get i1_Selection of window wdName┬  put line it of pList into theSnd┬  set i17_Text of window wdName to theSnd┬  set numberFormat to "0.#"┬  get ((last item of line it of sndList/1024)/22)┬  put it into sndLength┬  set i19_Text of window wdName to sndLength┬else┬  set i17_Text of window wdName to "No Sound Selected"┬  set i19_Text of window wdName to "0"┬  set i21_DefaultItem of window wdName to FALSE┬end if┬┬┬┬┬
  27.  
  28. ItemType: PICT
  29. Rect: 16,5,187,38
  30. ID: 152
  31. Script: play "Doesn't do anything"
  32.  
  33. ItemType: PICT
  34. Rect: 5,226,428,315
  35. Name: Gray Rect
  36.  
  37. ItemType: ICON
  38. Rect: 42,232,74,264
  39. Name: New Age
  40.  
  41. ItemType: TEXT
  42. Rect: 24,256,92,268
  43. TextFont: Geneva
  44. TextSize: 9
  45. AutoSize: FALSE
  46. TextAlign: Center
  47.  
  48. ItemType: ICON
  49. Rect: 106,232,138,264
  50. Name: Rock
  51.  
  52. ItemType: TEXT
  53. Rect: 88,256,156,268
  54. TextFont: Geneva
  55. TextSize: 9
  56. AutoSize: FALSE
  57. TextAlign: Center
  58.  
  59. ItemType: ICON
  60. Rect: 170,232,202,264
  61. Name: Jazz
  62.  
  63. ItemType: TEXT
  64. Rect: 152,256,220,268
  65. TextFont: Geneva
  66. TextSize: 9
  67. AutoSize: FALSE
  68. TextAlign: Center
  69.  
  70. ItemType: ICON
  71. Rect: 234,232,266,264
  72. Name: Blues
  73.  
  74. ItemType: TEXT
  75. Rect: 217,256,285,268
  76. TextFont: Geneva
  77. TextSize: 9
  78. AutoSize: FALSE
  79. TextAlign: Center
  80.  
  81. ItemType: ICON
  82. Rect: 298,232,330,264
  83. Name: Classical
  84.  
  85. ItemType: TEXT
  86. Rect: 280,256,348,268
  87. TextFont: Geneva
  88. TextSize: 9
  89. AutoSize: FALSE
  90. TextAlign: Center
  91.  
  92. ItemType: ICON
  93. Rect: 362,232,394,264
  94. Name: Other
  95.  
  96. ItemType: TEXT
  97. Rect: 344,256,412,268
  98. TextFont: Geneva
  99. TextSize: 9
  100. AutoSize: FALSE
  101. TextAlign: Center
  102. Text: Other
  103.  
  104. ItemType: LBL
  105. Rect: 32,280,66,292
  106. TextFont: Geneva
  107. TextSize: 9
  108. Text: Sound:
  109.  
  110. ItemType: TEXT
  111. Rect: 65,280,211,292
  112. TextFont: Geneva
  113. TextSize: 9
  114. AutoSize: FALSE
  115. Name: Current Sound
  116. Text:
  117. Balloon: Current sound file.
  118.  
  119. ItemType: LBL
  120. Rect: 36,293,66,305
  121. TextFont: Geneva
  122. TextSize: 9
  123. Text: Time:
  124.  
  125. ItemType: TEXT
  126. Rect: 65,293,146,305
  127. TextFont: Geneva
  128. TextSize: 9
  129. AutoSize: FALSE
  130. Name: Size
  131. Text:
  132. Balloon: Size of current sound file.
  133.  
  134. ItemType: PUSH
  135. Rect: 222,286,302,302
  136. TextFont: Geneva
  137. TextSize: 9
  138. BlackColor: 4369,4369,4369
  139. WhiteColor: -8739,-8739,-8739
  140. Name: Go
  141. AutoClose: TRUE
  142. Balloon: This button takes you to the picture associated to the current sound.┬┬(If ╥Sound╙ is selected in the ╥Aris¬╙ menu then the sound will be played again when you get there.)
  143. Script: if theSnd ¡ "" then┬  put theSnd into windowName┬  showPicture windowName┬end if
  144.  
  145. ItemType: PUSH
  146. Rect: 318,286,398,302
  147. TextFont: Geneva
  148. TextSize: 9
  149. AutoSize: FALSE
  150. BlackColor: 4369,4369,4369
  151. WhiteColor: -8739,-8739,-8739
  152. Name: Play
  153. DefaultItem: TRUE
  154. Script: playTheSound
  155.  
  156. ItemType: TEXT
  157. Rect: 272,22,407,34
  158. TextFont: Geneva
  159. TextSize: 9
  160. AutoSize: FALSE
  161. Name: Instructions
  162. WhiteColor: -17477,-17477,-17477
  163. Text: █Double-Click to play sound
  164.  
  165. ItemType: LBL
  166. Rect: 26,212,86,224
  167. TextFont: Geneva
  168. TextSize: 9
  169. BlackColor: 4369,4369,4369
  170. Text: Show Names
  171. Script: global setSound,sndListWithIcons┬get i24_Name of window wdName┬if it contains FALSE then put TRUE into last word of it┬else put FALSE into last word of it┬set i24_Name of window wdName to it┬put i1_Selection of window wdName into s┬set i1_Text of window wdName to ""┬┬if i24_Name of window wdName contains TRUE then┬  set i1_Style of window wdName to ListWithIcons┬  set i1_Text of window wdName to sndListWithIcons┬else┬  set i1_Style of window wdName to ListOfIcons┬  set i1_Text of window wdName to setSound┬end if┬set i1_Selection of window wdName to s
  172.  
  173. ItemType: PICT
  174. Rect: 10,212,22,224
  175. Name: Auto Close FALSE
  176. Script: global setSound,sndListWithIcons┬get i24_Name of window wdName┬if it contains FALSE then put TRUE into last word of it┬else put FALSE into last word of it┬set i24_Name of window wdName to it┬put i1_Selection of window wdName into s┬set i1_Text of window wdName to ""┬┬if objName contains FALSE then┬  set i1_Style of window wdName to ListWithIcons┬  set i1_Text of window wdName to sndListWithIcons┬else┬  set i1_Style of window wdName to ListOfIcons┬  set i1_Text of window wdName to setSound┬end if┬set i1_Selection of window wdName to s